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is virtually a complete tool for the Pie graphs of any EXPNS+ report 
manager or executive. Picture how on the DMP-100 dot matrix printer. 
this added capability will help you. Shows the percents on the pie chart 


WRITE+: Instead of merely a text and values on the others. 
preparation device the Model 100 TELEX+: From any phone send any 











becomes a real word processor. text file to any Telex machine in the 
Margins . . . side, top and bottom. world, Just enter the receiving 

Title page, topic headings, page Telex number. Send Mailgrams for 
numbers, and even headers and next day delivery to any address 
footers. You сап even right justify at reduced rates through the 

and print multiple copies. It has Action Telex system. 

over 36 features and countless PUT+: Lets you list any informa- 
format possibilities. tion in an organized fashion. It 
EXPNS+: By simply entering prompts for cach entry and very 
expenses into cighteen categories, rapidly creates addresses or schedule 
you get a twelve day spreadshect, items and even inventory. 

giving totals for each day, and SORT+: Allows you to sort any 


category. Names of rows and 
columns are instantly changeable, 
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or even a financial report. Replica- 
tion across the columns, cumlative 
totals, and automatic growth or 
decline rate projection, make 
EXPNS+ an excellent planning tool. 
And, all the math is built right in. MASTERCARD/VISA/COD 


list you compile with PUT+ alphabet- 
ically or numerically from any 
category in the entry. It can sort 
large files up to 20 times faster than 
an ‘all Basic program. 
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SUBMIT TO US— 
AND WE’LL GIVE YOU 
AN EVEN BETTER MAGAZINE 








We're really gratified by the initial 
response to PCM — The Portable Computing 
Magazine. We've received quite a number 
of letters, a bunch of telephone calls and 
— from the business perspective — a 
whole lot of subscriptions to our publi- 
cation. So, as you can see, we're grow- 
ing already. 

One of the things which we are really 
eager to have is reader input. We like to 
know what you need, what you think 
about products and what you are using 
your Portable Computer to do. We will 
publish your letters if you like, but if 
you just want to communicate with us 
on a not-for-publication basis, please 
do not hesitate to do so. 

Also, in our experience in the compu- 
ter magazine field, we have found that it 
is people like you who develop the most 
interesting applications. Of necessity, 
PCM 5 first issue was put together with 
contributions from people we already 
knew who had Portable Computers. 
But, as we grow, we very much want to 
expand our base and our information. 
So please, don't be shy or hesitant about 
sending us programs, hints or tips you 
have written and which work for you. 
Not only will we use them, we'll pay you 
for them. 

Do contribute. We want you to be a 
part of us. That way we can grow and 
you can, too. 

Generally, we like to have submis- 
sions typed (or printed out on a printer) 
double-spaced. If you want, include a 
file that can be loaded into the Model 
100 and run out by us. But, do make a 
“hard copy” as well, just in case some- 
thing goes wrong. 


If your submission includes a pro- 
gram, please make several saves, includ- 
ing an ASCII save (accomplished by 
typing SAVE “Filename”,A) and be 
sure to leave space between the saves. 
We'll handle the format. And, it is help- 
ful to have your text contain some 
explanation of how the program works. 

We ask this because most people 
learn by doing. What may seem simple 
to you may not be understood by some- 
one else. In addition to helping someone 
with a programming application they 
can use, you will also help them under- 
stand a program to the extent that it will 
be easier to write their own. 

Submissions can be sent to “Submis- 
sions Editor, PCM, 9529 U.S. Highway 
42, P.O. Box 209, Prospect, KY 40059.” 
We will notify you when your submis- 
sion arrives and give you an estimate as 
to when you will hear if we plan to use it. 
Please do not submit a program to more 
than one publication at a time. It can 
cause some real problems. 

By the way, you continue to own any 
program which you submit to us — even 
if we run it. You have the right to do 
whatever you wish with it (after a short 
period of time) so this is not an all-or- 
nothing situation. 

SO, if you have an interesting appli- 
cation or program, do send it along. 


You may have noticed the reference 
to “PoCo” on the cover of July’s pre- 
mier issue. It does seem that computers 
get nicknames and we have sort of 
adopted PoCo as the one for the TRS- 
80 Model 100 Portable Computer. One 
of the reasons for that is that the “for- 


mal" name is quite long, and we can 
save a bunch of space in PCM by usinga 
nickname. Another reason, frankly, is 
because we believe the people at Radio 
Shack have done a good job of making 
the Portable Computer user-friendly. 
And a friendly computer should have a 
nickname. 

Why"PoCo?" Well, poco means "small" 
in Spanish, and the PoCo is certainly 
small (but powerful). Second, it is a 
friendly-sounding name. 

But, if you don't like PoCo, let us 
know. We're not wedded to a particular 
name, we just want to use one that will 
have good recognition, be easy to say 
and have some very positive connota- 
tions for the 100. 

Besides, as PoCo expands, with dif- 
ferent configurations and the like (al- 
though none are expected right now), 
PoCo gives ita sort of generic name. By 
the way, that is one of the reasons we 
didn't name PCM something like *100 
Magazine," we expect the Portable 
Computer to grow and expand and— 
perhaps— grow through several names 
in what we anticipate will be a long life. 


Speaking of which, we do want you to 
know you are far from alone. Although 
Radio Shack does not release specific 
sales figures, we understand PoCo sales 
have been very brisk. This is important 
to you, because it means more and more 
software and hardware vendors will be 
attracted to the Portable Computer 
market. And, it also means Tandy will 
devote more of its energies to support 
for our PoCo. 


(continued on page 30) 
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Monsters & Magic 


The most realistic fantasy role-playing game yet for the 
Color Computer. You start out by rolling up your characters 
basic ability scores and buying equipment. When you are 
ready it's into the dungeon. Your character starts at first 
level, but can rise in levels by garnering experience in the 
fray. If you have role-played fantasy games you will be 
amazed at the realism of the combat system. Armor class, 
initiative, and damage by weapon type are all included, 
with over 50 different monsters to fight - each with it's own 
abilities. As you rise in level you can win treasure and find 
magic weapons and spells - if you live!! You set the game 
length by telling how many monsters you want to fight 
before you reach your final battle to the death against the 
powerful Dungeon Lord. There are 1000+ place descrip- 
tion combinations in this text based game, and real excite- 
ment in every one! This is a fantasy simulation, and is truly 
not like any adventure game you have ever seen. For 1 
player. $19.95 tape—24K 


Astrology 


Truly a classic, this program will accurately cast your 
complete horoscope. You just enter the date, time, and 
place of birth. The sun sign, rising sign, mid heaven (MC), 
lunar nodes, and planetary influences including houses 
andaspects between the planets will all be calculated, and 
a full chart drawn. You can also do progressed charts and 
transits. It will even tell you the day of the week you were 
born. The accompanying book will help you interpret this 
chart of your horoscope. The extent of the documentation 
is tremendous, even by our exceptionally high standards, 
and no previous knowledge of the subject is required. You 
can share in this wisdom which has been used for thou- 
sands of years in many cultures. This program was written 
by a professional Astrologer. $34.95 tape — 16K 


Your personal check is welcome - no delay. Include 
$1.50 shipping for each program ordered. (Shipping free 
on $50.00 or larger orders). AZ residents add 796 sales 
tax. Orders shipped within two days. 


Viking! 


A simulation for 1 to 4 persons. Each begins as a land- 
owner, and by farming their land, buying and selling land, 
expanding their fishing fleet, building on to their manu- 
factory, increasing their population, equiping and training 
more soldiers, and regulating their taxes, each player tries 
to increase their economic power and rank until one 
becomes ruler over all. But beware plagues, rats, raiders, 
revolts, bad weather, and other misfortunes which may lie 
along the road to success. As you progress, see the map of 
your holdings increase. Playable in 1 to 2 hours, and 
different every time, you may have an addiction problem. 
$19.95 tape — 24K 
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Gangbusters 


If you ever wanted to try a life of crime, this is your chance. 
You will start out as a Punk, but by using brains, and a little 
muscle, you can rise to become a Hood, Runner, Bookie, 
Torpedo, Fence, Kingpin, or win by becoming Syndicate 
Boss. Indulge yourself. Bribe a judge, or the District 
Attorney. Pay off the Cops. Take out a contract on another 
player, but watch out, they may be after you. Buy trucking 
companies, bootleg operations, houses of ill fame, but 
remember, if you get caught, you may do some hard time. 
Do you have what it takes to take over? This game will keep 
you close to your rod, get you thinking about bulletproof 
glass in your car, and definitely bring out the worst in you, 
but you'll love every minute of it. For 2 to 6 players, takes 
about 2 hours to play. Every game is excitingly different. 
$19.95 tape — 24K 


Stocked by Quality Dealers, or 
Send Order To: PRICKLY-PEAR SOFTWARE 


9234 E. 30th Street 
mm 
Ll 


Tucson, Arizona 85710 
(602) 886-1505 








Determining 
Gross Profit Margins 


By Vincent Lord 


particularly a service or retailing 
business, operating ratios become 
vital to its daily health. Management 


р the operation of а business, 


will usually try to obtain a gross profit 


(Vincent Lord has a degree in 
Chemistry from the University of 
Tennessee and has done extensive 
work with using computers to 
operate gas and liquid chromato- 
graphs.) 


The listing: 


on sales or gross margin to ensure that 
all goods are fairly priced to ensure 
profitability. The gross margin is 
related to the sales figure; sometimes it 
is also referred to as the average mark- 
up percent on sales. For example, if an 
item is purchased for $100 and sold for 
$250, then the profit ($150) divided by 
the sale price gives the gross margin (60 
percent). The program listed below will 
calculate the gross margin, selling price, 
or cost of goods depending on which 








data itemsare available. The gross mar- 
gin must be a number between | and 100 
percent (you can't sell something, theo- 
retically, with no cost unless you have a 
better deal than I). This program will 
also help you to determine how to price 
your goods if you wish to mark down 
the price and still make some profit 
(type in 1,3 at the menu). All data from 
the menu must be separated by a 
comma and be limited to just two 
numbers. 


210 PRINT"AND A SELLING PRICE OF $";SP 
220 PRINT:PRINT"THE GROSS PROFIT MARGIN 
IS"; PRINTUSING"###,##"; БР; EPRINT"Z" 


REM***COMPUTE SELLING PRICEs** 


INPUT"GROSS PROFIT MARGIN (1-180) "; 


10 CLS:PRINT"THIS PROGRAM WILL COMPUTE Y 238 6070150 

OUR GROSS PROFIT MARGIN, SELLING PRIC 240 

E, OR COST." 250 CLS 

20 PRINT" «ENTER? TO CONTINUE"; 250 INPUT"COST ";CO 
30 INPUT D$ 270 

40 CLS:PRINTTAB(12) ; "ж##ж MENU xs" GP 


50 PRINT:PRINTTAB(10);"1-COST":1PRINTTAB( 
10); "2-SELLING РКІСЕ" : РКІМТТАВ (19); "3-GR 


OSS PROFIT MARGIN" 


6@ PRINT: PRINT" TYPE NUMBERS OF DATA AVA 


ILABLE" 


70 PRINT"(2 NOS. SEPARATED BY COMMA)"; 


80 INPUT A,B 


90 IF А=1 OR B=i THEN 100 ELSE 540 
108 IF A=2 OR B=2 THEN 110 ELSE 240 
110 IF A=3 OR B=3 THEN 120 ELSE 150 
120 PRINT"NUMBER (1 TO 3) ONLY":GOTO 68 


280 


IF GP«1 ORGP>10@ THEN PRINT"INCORREC 
T (1 TO 100) ": ВОТО 270 


290 SP=CO/(1-GP/10@) 


300 CLS:PRINT"WITH A COST OF $";CO 


310 PRINT"AND A GPM ОЕ"; БР; "7" 


320 PRINT:PRINT"YOUR SELLING PRICE 154): 


PRINT USING"$$4444439 , #8" 3 SP 


338 G0T0130 


CLS 


REM***COMPUTE COST*** 


INPUT"SELLING PRICE ";SP 
INPUT"GROSS PROFIT MARGIN (1-1007.) "; 


IF BP«1 OR GP>100 THEN PRINT" INCORRE 


CT (1 TO 100) ": БОТО 570 


390 CO0sSP-(SP*GP/10Q) 


400 CLS:PRINT"WITH A GPM OF "sGP3"%" 


130 PRINT:IPRINT"Try Another (Y/N) : "j 378 
140 A$=INPUT$(1):IF A$z"Y" OR A$="y" THE GP 
N RUN ELSE IF A$="N" OR A$="n" THEN MENU 380 
ELSE 140 

150 REM**«COMPUTE GROSS PROFIT MARGINs** 

150 CLS 

170 INPUT"COST";CO 


GP=(SP-CO) /5Р%100 


INPUT"SELLING PRICE"; SP 


CLS:PRINT"WITH A COST OF $";CO 


410 PRINT"AND A SELLING PRICE OF $";8P 
420 PRINT:PRINT"YOUR COST IS ";:PRINTUSI 
NG"$$44HHHNH. 4"; CO 


450 68070150 
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Biorhythms: 


9 Your Cycles 


By Dan Downard 
PCM Contributing Editor 
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ways of demonstrating your new 

Model 100 to anyone, whether com- 
puter oriented or not, is a program that 
does something anyone can understand 
and have their name in “lights,” so to 
speak. Some people take biorhythms 
seriously while others are just curious to 
see what the computer can do. Imagine 
the raised eyebrows when, after a friend 
enters his date of birth, the computer 
states what day of the week that was, 
and after a short calculation, draws his 
own personalized Biorhytym chart. 


I one of the most impressive 














Biorhythms 

The biorhythm theory postulates that 
on the day of your birth three inner 
clocks start operating which have a con- 
stant period throughout your lifetime. 
The first is a 23-day physical cycle. The 
second is a 28-day emotional cycle. The 
third is a 33-day intellectual cycle. All 
clocks start at zero on the upswing and 
follow a sine-wave pattern with a period 
as indicated. We use P, E and I to indi- 
cate the three cycles and by taking an 
arithmetic average we also plot A, or P+ 
I+E/3. An explanation of the theory is 
included in the program for the un- 
initiated. 



























ШЇ 






D 
7, 






N 










































Biorhythms is a program that I used 
on several different computer systems 
and downloaded to the Model 100 from 
my TRS-80C, or CoCo. CoCo to PoCo, 
How about that? Information is given in 
the Portable Computer manual for down- 
loading and uploading to a Model П 
and Model III, but no mention of a 
Model С... A simple patch cord is all 
that is necessary. 

Following are the connections: 


M-100 TRS-80C 

RS*232C(DB=", SERIAL, "О 
25P PLUG) (4-PIN DIN PLUG) 

PIN 2 to PIN 2 

PIN 3 to PIN 4 

PIN 7 to PIN 3 


"li 
\ isl 








On the TRS-80C end I was using 
Super Color Term by Nelson Software. 
Any similar program having a buffer 
will work. Following is a step-by-step 
layout of the procedure: 

1) Load the program to be downloaded 
from tape, or disk, into the terminal 
on the CoCo. 

2) Position the cursor on TELCOM 
and hit ENTER. 

3) Hit F3 and the screen will respond 
"Stat" to which you respond 37Е1Е 
and ENTER. This initializes the 
PoCo at 300 Baud, even parity, | 
stop bit and XON/ XOFF. 

4) After the “Telcom:” prompt hit F4 
for Term to which the PoCo will 

respond with a flashing cursor. 
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5) Enter F2 for downloading to which the PoCo will 
respond “File to Download?” Enter a name and exten- 
sion such as BIOSIN.BA followed by ENTER. 

6) Send the contents of the CoCo buffer with whatever 
command is necessary. In my case it was the right arrow 
key. 

7) After the program is received hit F8 to which the PoCo 
responds “Disconnect?” Answer Y for yes, followed by 
ENTER. 

The file you downloaded will now be in the PoCo memory 
for whatever purpose you desire. 


Program Modification 

Actually very few modifications were necessary for pro- 
gram operation. Besides the necessity of changing all of the 
PRINT@ and PRINTTAB commands the program work- 
ed the first time it was executed. At the same time many 
hours were spent converting these statements into final form 
for the listing that accompanies this article. Again, most of 
the time was spent converting screen formats from 80 x 24 to 
40 x 8. I should mention here that the CoCo version was 
initialized for printer output. If printer output is desired 
change the PRINT commands in lines 530 through 1580 to 
LPRINT and you will have hard copy. 


Summary 

One of the most desirable attributes of the PoCo is Micro- 
soft BASIC. You will find that programs written in BASIC for 
TRS-80s, Apples and IBM PCs will run with a minimum of 
conversion due to the fact that Microsoft wrote the BASIC 
system for all of these computers. Usually just a few changes 
to the screen format is all that is necessary. Good luck and 
happy computing. 


The listing: 


100 CLS 

110 PRINT850, "BIORHYTHM" 

120 PRINT@90,"PCM MAGAZINE" 

125 PRINT8130,"AUGUST 1983" 

130 INPUT"DO YOU WANT AN EXPLANATION OF 

BIORHYTHMS(Y/N) ";А$ 

150 DIMOS(70) : 0ІМК (15) DIMT$ (12?) sDIMF (12 
) tDIMJ (2) 

100 FOR K=1T08 

170 READ T$(K) 

180 NEXT K 

190 DATA SUN,MON,TUE ,WED, THU,FRI,SAT," " 
200 READ K 

210 FOR Rs! TO 12 

220 READ F(R) 

230 NEXT R 

240 DATA 6.283185,31,28,31,30,31,30,31,3 
1,30,31,30,21 

280 CLS 

270 INPUT"WHAT IS YOUR NAME";2$ 

280 PRINT"ENTER DATES IN THE FORMAT MONT 
H, DAY, YEAR" 

290 PRINT"FOR EXAMPLE-AUGUST 15,1946 WOU 
LD BE 8,15,1946" 

300 INPUT"BIRTHDATE";M1,D1,Y1 
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305 M2z2M1:D2zD1:Y2zY1 

318 GOSUB1878 

315 P1sP2 

320 INPUT"START DATE FOR СНАКТ";М2,02,Ү2 
338 GO0SUB1970 

348 INPUT"HOW MANY DAYS DO YOU WANT PRIN 
ТЕЙ"; 

350 IF A$="Y" THEN GOSUB 1240 

360 X=M1 

378 GOSUB1180 

380 J1zJ2*Y1*365 

398 IF 415639723 THEN P158 

400 X=M2 

418 GOSUB1180 

420 J2:J2*Y2*365 

430 IF J24639723 THEN P228 

440 0zJ2-J1*4*INT((Y2-Y1) /4- INT(CY2-Y1) / 
4)) 

450 IF Y1/4-INT(Y1/4) <>ЙТНЕМ5Й0 

460 IF Y2»Y1 THEN 490 

470 IF M2>2 THEN 490 

480 68070500 

490 IF M143 THEN 0=0+1 

500 CLS 

550 PRINT"BIORHYTHM CHART FOR ";7% 

550 PRINT"BORN ON ";T$(P1);" "Мір" "рі 
Ыш ah | 

560 PRINT"BEGINNING ";Т$(Р2);" ";М2; 7/7 
)2%"/%3Ү2 


580 PRINT"P=PHYSICAL (23 DAYS)" 
590 PRINT"E=EMOTIONAL (28 DAYS)" 
800 PRINT"ISINTELLECTUAL (33 DAYS)" 


810 PRINT"A=OVERALL AVERAGE" 

620 FOR Т-1702000:МЕХТТ:С15 

&30 PRINTTAB(12); "DOWN"; TAB(22) 3 "CRITICA 
L"1TAB(37) ; "UP" 

b40 PRINTTAB(12);"------------- ‚-------- 


650 IF Y2/4-INT(Y2/4)20 THEN F(2)=29 
678 Lz0*L 

688 С=@ 

90 FOR 0-0 TO L-i 

700 С=С+1 

718 FOR P=@ TO 26 

720 0%(Р) =" " 

730 NEXT P 

740 0$(13)2"," 

750 Y=8 

760 X=(SIN(K#(O/23-INT (0/23) ))#13.5) +13 
778 OF(X)="P" 

780 YsY*X 

790 Х-(БІМ(К%(0/55-ІМТ(0/55)))%15,5) +13 
800 0%(Х) ="І" 

810 YzY*X 

820 X=(SIN(K#(O/28-INT(0/28)))#13.5) +13 
850 0$ (Х) = "Е" 

840 Ү=(ү+Х) /5 

850 OF (У) ="А" 


All work and no play makes Jack a dull boy... 


NOW YOU CAN HAVE 
FUN WITH YOUR 
24K MODEL 100 


4 games for your enjoyment: 


BLOCKADE — Your ‘snake’ grows longer as 
you hit the randomly appearing targets on the 
screen — as long as you don't run into yourself, 
a wall, or your opponent! A one or two player 


real-time game with optional sound and three 
speeds of play. 


REVERSI — A ‘board’ game in which you try to outflank your 
opponent to end up with the most squares at game’s end. Play against 
the computer or another human. 


FRANKENSTEIN ADVENTURE — Find all of the necessary 
equipment to awaken the monster. The clues are hidden and the pitfalls 
are many! 


ALEXIS ADVENTURE — Sail the seas and traverse the islands to 
recapture your kingdom. Chart your course or you may sail on forever! 


РСМ — alot of software for а little silver 


CERTIFICATION 


ICA 
SEAL 


All four games on tape for only $24.95 SilverWare POBox 21101 
Calif. residents add 6% tax, overseas add $1.00 shipping Santa Barbara, CA 93121 


Mastercard & Visa Dealer inquiries invited (805) 966-1449 





860 PRINTT$(P2)3TAB(4); М2; "/"; D2; TAB(12) 


3 

870 FOR PsQTO26 

880 PRINTOS(P); 

890 NEXT P 

900 PRINT 

910 IF P2=8 THEN 1060 

920 Р2=Р2+1 

930 IF P2>7 THEN Р2=1 

940 D2-D2*1 

950 IF D2>F(M2) THEND2=1:M2=M2+1 

950 IF M2«13 THEN 980 

970 M2=1:Y2=Y2+1 

980 IF Y2/4-INT(Y2/4)<>@ THEN 1010 

990 F(2)=29 

1000 GOTO 1020 

1010 F(2)-28 

1020 NEXT 0 

1000 END 

1070 ‘FIND DAY OF WEEK 

1080 N1zM2*12*INT(.6*1/M2) 

1090 N2=Y2-INT(.6+1/M2) 

1100 N3sINT(134(N1*1)/5) 

1110 NAsINT(54N2/4) 

1120 NSsINT(N2/100) 

1130 Ме-ІМТ(М2/400) 

1140 N7=N3+N4-N5+N6+D2-1 

1150 P2=N7-(7*#INT(N7/7)) 

1160 P2=P2+1 

1170 RETURN 

1180 'FIND DAYS EXPENDED IN PRIOR MONTH 
5 

1190 22-0 

1200 FOR 1-1 TO 3-1 

1210 J2=J2+F (1) 

1220 NEXT I 

1230 RETURN 

1240 CLS:PRINT" THE BIORHYTHM THEORY PO 
STULATES THAT" 

1250 PRINT"THERE ARE CERTAIN METABOLIC C 
YCLES, " 

1260 PRINT"KNOWN AS INNER CLOCKS, WHICH 
HAVE A" 

1270 PRINT"CONSTANT PERIOD IN THE HUMAN 
BODY, " 

1280 PRINT"THE THREE MAIN CYCLES ARE A 2 
3 DAY” 

129@ PRINT"PHYSICAL CYCLE, A 28 DAY EMOT 
TONAL" 

1300 PRINT"CYCLE, AND A 33 DAY INTELLECT 
UAL CYCLE, " 

1305 FOR T=1T03000:NEXTT:CLS 

1310 PRINT"THE PHYSICAL CYCLE IS ASSOCIA 
TED WITH" 

1320 PRINT"PHYSICAL VITALITY, ENDURANCE 
AND" 
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1338 PRINT"ENERGY LEVEL. THE EMOTIONAL 

CYCLE" 

1340 PRINT"CORRESPONDS TO SENSITIVITY, I 
NTUITION" 

1350 PRINT"AND CHEERFULNESS. THE INTELL 
ECTUAL" 

1380 PRINT"CYCLE IS RELATED TO MENTAL AL 
ERTNESS" 

1378 PRINT"COGNITIVE POWER AND JUDGEMENT 
ABILITY, " 

1375 FORT=1T03000:NEXTTCLS 

1380 PRINT" ALL THREE CYCLES START AT 7 
ERO ON" 

1390 PRINT"THE UPSWING AT THE MOMENT OF 

BIRTH." 

1400 PRINT"AND CONTINUE UNBROKEN THROUGH 
OUT А" 

1418 PRINT"PERSON'S LIFETIME." 

1428 PRINT" ACCORDING TO BIORHYTHM THEO 
RY, THE" 

1430 PRINT"HIGH PERIODS OF A CYCLE ARE T 
HE TIMES" 

1440 PRINT"WHEN A PERSON WILL PROBABLY Н 
AVE THE" 

1445 FORT=1T0300@:NEXTT:CLS 

1450 PRINT"MOST ENERGY, BE MOST CHEERFUL 


, 

14680 PRINT"MENTALLY SHARP, OUTGOING AND 
ALERT." 

1470 PRINT"THE LOW PERIODS CAN BE REREGA 
RDED" 

1480 PRINT"AS RECUPERATIVE TIMES, WHEN T 
HE BODY" 

1498 PRINT"IS RECHARGING ITS BATTERIES. 
THE" 

1500 PRINT"DAYS ON WHICH ANY CYCLE CROSS 
ES THE” 

1518 PRINT"ZERO LINE ARE CALLED *CRITICA 
L DAYS«" 

1515 Ғ0ОКТ>1705000: NEXTT: CLS 

1520 PRINT"AND PERFORMANCE MAY BE UNSTAB 
LE, 

1550 PRINT" THESE IDEAS ARE PRESENTED W 
ITHOUT" 

1540 PRINT"ANY STATEMENT THAT THEY ARE F 
ACT." 

1550 PRINT"HOWEVER, THERE THERE ARE THOS 
E WHO" 

1560 PRINT"LIVE THEIR LIVES BY THEIR *BI 
ORHYTHM«" 

1578 PRINT"CHART. HERE IS YOUR CHART FO 
R YOUR" 

1580 PRINT"OWN EXAMINATION: " 

1585 ҒОКТ-1703000: МЕХТТ:СІ.5 

1590 RETURN 

1500 END 

PCM] 


ne of the more interesting things 

you can do with your Portable 

Computer is generate random 
numbers. These can be very useful for a 
number of applications; however, it 
takes a little insight into the random 
number process in order to handle ran- 
dom numbers correctly. 

Actually, there are two particular 
points to consider with random number 
generation. The first is to determine the 
real randomness of the random number 
and the second is to determine the range 
of random numbers you want to 
generate. 

Before we get into a discussion and 
some examples of how to make random 
numbers work, you might want to think 
about what good are these things, 
anyway. 

The nicest thing about random 
numbers is that they are, well, random. 
You never know what they will come up 
with next. So, one thing you can do with 
them is simulate the roll of a pair of dice. 
We'll have a program to show you how 
that is done later on. 

An application like this, especially 
with the Portable Computer's portable- 
ness, is endless. But, one certainly 
would be in playing board games. Just 
get your trusty Portable Computer, 


some game, and throw the dice away. A 
short program in BASIC can easily take 
over the dice-rolling chores—and you 
won't have to shake your hand back and 
forth all afternoon, either. 

There are countless other applica- 
tions that can be used with random 
numbers. We'll try not to spoil all the 
fun, but games— especially simulations 
where you want to have a probability of 
some event occurring—comes most 
clearly to mind. 

Keeping those uses most firmly in 
mind, here is how to make your Porta- 
ble Computer's random number gener- 
ator work for you: 





TRUE RANDOMNESS 


The main problem, my friend, in 
making up true random numbers is that 
no computer, in and by itself, provides a 
real random number. If you don't 
believe this (would we lie?) simply write 
a little program like this: 


10 FOR X-1 TOS 


20 PRINT RND(1) 
30 NEXT X 





What we have constructed here is a 
FOR/NEXT loop to make the compu- 
ter find and print out five random 
numbers. RUN the program and you 
will see five different numbers (all of 
them less than one, but we'll handle that 
later) which appear to be random— they 
certainly don't seem to have any pattern 
to them! 

Well, just go back to the Main Menu, 
turn your Portable Computer off, and 
then turn it on again. Go back to BASIC 
and RUN the program again. 

Gads! What's this? Yes, they are the 
same random numbers you got before. 

These numbers don't appear to be so 
random after all. 1 mean, if you wanted 
to bet on a certain number coming up, 
why that would be pretty easy, since you 
know what the random numbers are. 

The reason this happens is because 
what the Portable Computer 
generates—or any computer for that 
matter—is a pseudo random number. If 
you ran the example program above a 
second time without turning the compu- 
ter off, you would get some different 
numbers. But, once you do turn it off, 
the computer re-seeds its random 
number generator and that brings up 
the same set of numbers again. 

You can defeat this by changing the 
seeding function. And the best way to 
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do this is through the TIMES function. 
Since time is always changing, so is your 
TIMES. There is a short, simple and 
easy explanation in the manual which 
came with your Portable Computer that 
shows how to do this, but, for our pur- 
poses here, it needs a little bit of 
modification. 

So, we need to add a Line 5 to our 
program above, like this: 


5 S=VAL(RIGHTS(TIME$,2)): FOR 
1=1 TO S: D=RND(1): NEXT I 


What this confusing bit of mish-mash 
does is seed the random number genera- 
tor to the seconds part of the TIMES, 
the part which changes the fastest. You 
then end up with 60 different possible 
"starting points” for the pseudo random 
number generator. That makes it pretty 
random—and certainly unpredictable. 


"REAL NUMBERS" 








So, what are those silly numbers, 
anyway? How can you roll dice with a 
bunch of decimal numbers? I mean, 
have you ever seen any negative dice? 

This represents one of the things we 
do dislike about the Portable Compu- 
ter. Honestly, it’s no big thing. But, to 
get what you might call “real” numbers 
out of the random number generation 
process, you have to do a little bit of 
program writing. It would have been 
less difficult to have put the code into 
the instructions used to write the 
microprocessor. Oh well. As we said, it 
isn't any big deal. 

In order to get “real” numbers we 
have to introduce you toa new friend in 
the BASIC programming language, INT. 
This is the function which produces an 
INTeger of a number. And, that is going 
to be important in our quest to get 
“real” random numbers. 

Let’s continue to use the example of 
rolling dice. And, for now, we'll just 
ignore the necessity of fixing the ran- 
dom number generator seed. But, what 
we do need to do is write something that 
will give us those normal numbers we 
want. 

NEW out the program you had in 
memory before and try this line: 


20 PRINT INT(6*RND(1))+1 

Aha! Prints a whole number, doesn't 
it! And, the whole number is between 
one and six. 
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The key to this little bit of wizardry is 
the “6” after the open parenthesis and 
before the asterisk (a "times sign" in 
BASIC). The six simply is the range of 
numbers you want. Since a single die 
has six sides, we used six. If you wanted 
to get a random number between one 
and 100, you would substitute “100” for 
“6” in the line above. 


“The: laws of, probability ; 
“tell you (and so will апу. 
friendly pit boss in Las”; 
“Vegas or Atlantic City)” 
that there is à better. 
г. chance of rolling a seven ` 
^on two dice than theres isy, 
in rolling a, ‘Says. four H 
That, frankly, КО e 
"basic. foundation Ж 
вате of craps.” Уы 


қ Ё 


Simple enough, eh wot? 

We do have to add one, which we do 
at the end of the line, because we are still 
generating numbers between zero and 
one. The multiplier takes care of the 
range we want, but because we are gen- 
erating numbers that are less than one, 
we have to add one. 

And it is the integer function which 
drops the decimal point and all the 
numbers after it, once the multiplica- 
tion is complete. 

So, to roll a die five times, as we tried 
to doearlier, we would simply write this 
program: 


5 S-VAL(RIGHTS(TIMES,2):; FOR 
I-1 TO S: D=RND(1): NEXT I 


10 FOR X-1 TO 5 
20 PRINT INT(6*RND(1))+1 
30 NEXT X 


What you will see is a list of five ran- 
dom whole numbers. Simple as can be. 


A BIT DICEY 


Now that we have solved the basic 
problem of getting whole random 
numbers, we're ready to write a pro- 
gram that will roll dice for us. 

Oh, that’s simple, you say. Just 
change the “6” in Line 20 to a “12” and 
you've got it. Right? 

Wrong. 


The laws of probability tell you (and 
so will any friendly pit boss in Las Vegas 
or Atlantic City) that there is a better 
chance of rolling a seven on two dice 
than there is in rollinga, say, four. That, 
frankly, is the basic foundation to the 
game of craps. 

Well, you ask, if you have an “equal” 
chance of rolling any single number 
with two dice, why don't you just use a 
random of 12 to do it? 

The reason is simply because you are 
not rolling one twelve-sided die, you are 
rolling two six-sided dice. With each 
die, the chances of any one number 
coming up are equal. 

But, there are more combinations 
that equal seven than any other. And, 
since you are using two dice, it is the 
combinations that are important. 

So, if we are going to write a dice- 
rolling program, we have to take these 
combinations into account. 

And the way we do that is to roll two 
dice, like this: 


5 S=VAL(RIGHTS$(TIME$,2)): FOR 
I-I TO S: D=RND(1): NEXT I 


10 FOR X=1 ТО 5 

20 A=INT(6*RND(1))+1 
30 B=INT(6*RND(1))+1 
40 C=A+B 

50 PRINT C 

60 NEXT X 


Now, key this one in and RUN it. 
What you will have is five random 
whole numbers between two and 
twelve, each one representing a roll of 
the dice. 

By adding a randomizing factor as in 
Line 5, you can come up with true ran- 
dom dice rolls. You might, if playing a 
game, want to eliminate Lines 10 and 
60, so that only one roll is made at a 
time. All you have to do is type in RUN 
every time you want to roll the dice. 

As a final little “bell and whistle” to 
this, let’s take out Lines 10 and 60 and 
add the following line: 


60 R$-INKEYS:IF R$="“" THEN 60 
ELSE 20 


We won't go into a lot of detail on 
this, except to say that your new Line 60 
checks the keyboard to see whether any 
key is pressed. If one is, it rolls the dice 
again and then waits for another key to 
be pressed. To roll the dice, just press 
any key you wish. 

There are a great number of other 
applications you can use with dice, and 
with random numbers. If you have one 
you'd like to share, send it to us and 
we'll print it. in 








Skyline Software 


PUBLISHERS OF QUALITY MICROCOMPUTER SOFTWARE 


The Porta™ series from Skyline— 
to help you work faster and better! 


PortaCalc® — Model 100 "electronic spreadsheet" with 15 column by 26 row workspace! Full use of 
the built-in function keys to save, load, screen print, report print, or to look behind the data at the 
formulas in use. 

Full arithmetic operators including exponentiation, absolute value, integer, summation, and averaging. 
Calculations are done to 14 digits of precision and displayed up to 9 digits. User selectable decimal 
place from none through seven—not just one, two, or floating! Formula replication is included to 
allow fast creation of worksheets. 


Worksheets may be saved, loaded, or merged using the computer's memory or cassette. Often used 
templates can be saved in memory for instant recall. DIF file creation feature allows transfer of 
worksheets or data to VisiCalc on your big machine back at the office! 
Printer driver gives more control for report formatting. 

Comes with extensive documentation in padded 3-ring binder. Includes tutorial, detailed reference 
section, and executive level sample templates. Fully illustrated with screen prints, examples, and hints. 
PortaStat® — Correlation, regression analysis, covariance and descriptive statistics package, designed 
to be a working tool for today's businessman. Data can be input from cassette, memory, or keyboard. 


CERTIFICATION 
SEAL 


Interactive with PortaCalc data files! Thoroughly documented, includes tutorial. 


PortaFin* — Present value, net present value, future value, annuities, interest factors, loan 
constants, internal rate of return and more! This user-friendly package prompts you for the 


needed input data, then gives you the answer to your loan or 
investment problem! Interactive with PortaCalc files, allowing 
you to "read" cash flow data from memory. Keyboard or 
cassette input also available. 


PortaMax* — The powerful ‘simplex’ method of linear 
programming. Find the optimum 'mix' for a given set of 
constraints. Interacts with PortaCalc files to avoid time-wasting 
repetitive data entry. Tutorial, examples, and bibliography included. 


PortaMed * — an ‘electronic clipboard’ for the medical pro- 
fessional. Already in use at a major hospital. Patient medical 
record keeping and report generation. Clearly documented, and 
easy to use. 


PortaFolio* —Stock and bond valuation, betas, Macaulay's 
duration, yield to maturity, bond swap calculations, and much 
more. All in an easy to use program, interactive with PortaCalc 
data files. Supplied with comprehensive instructions and 
reference manual. 


All Porta series programs are supplied on cassette and require 
24K RAM. 


Pricing — PortaCalc is $69.95, all others are $44.95 each. 


SPECIAL OFFER: 

Computer cassette recorder, with cable for Model 100, and a 
dozen data cassettes with cases — $49.95 with any Porta 
software purchase. 


Model 100 is a trademark of Tandy Corp. VisiCalc is a trademark of VisiCorp. DIF is a trademark of Software Arts 


ORDERING 
INFORMATION 
ALL ITEMS SHIPPED 
FROM STOCK 


Phone orders 
may be placed at: 


(312) 260-0929 
(Our voice line), 


or with your 
computer at: 


(312) 588-7917 
(Our MODEM line) 


$2.00 shipping and handling 
per order. 


Mail orders should be sent to: 


SKYLINE 
MARKETING 
442 Sunnyside 
Wheaton, IL 
60187 


| MasterCard 





PASTE LABEL PRINT 





Radio Shack’s New 
TRS-80° Model 100 
Portable Computer 

Is Sending Shockwaves 
Throughout the Industry 





| CS UCET SE аси гарор ағыт ыты», 8K TRS-80 Model 100 24K TRS-80 Model 100 
26-3802 26-3801 

| Only $54 a Month Only $68 a Month 

on CitiLine Credit on CitiLine Credit 






Radio Лаек 


TRS-80 


m Powerful Built-In Software 
and Extended BASIC Language 
m Self-Contained Direct-Connect 
Telephone Modem 
m 8-Line by 40-Character Display 
m Full-Size Typewriter Keyboard 
m Retains Data When Power "Off" 
m Memory Expands to 32K 


MODEL 100 
PORTABLE 


COMPUTER 





Brace yourself—Radio Shack just redefined the 
concept of personal computing. Our new TRS-80 
Model 100 is so small, it'll fit in your in-basket. 
Yet, it’s as powerful as many desktop micros. The 
built-in BASIC language is the most advanced 
ever from Microsoft®, and features full string han- 
dling, complete file operations, multi-dimension 
arrays, 14-digit double-precision accuracy, 

240 x 64 dot-addressable graphics, a five-octave 
sound generator and much more. The Model 100 
includes a parallel printer port, an RS-232C serial 
interface and a cassette port. Model 100’s built-in 
direct-connect modem even allows you to access 
any computer by phone. If you’re not a program- 
mer, “instant-on” software in ROM lets you use 
your Model 100 as a personal word processor, 
telephone auto-dialer, address book and appoint- 
ment calendar. Come see the most revolutionary 
computer since the TRS-80 Model I at over 6500 
Radio Shack stores and participating dealers, in- 
cluding over 400 Radio Shack Computer Centers 
nationwide. 





The biggest name in little computers® 
A DIVISION OF TANDY CORPORATION 

QUU! iar ae rag aie ee E MR CUR A Oe eee E CAR RR 1 

Send me a free TRS-80 Model 100 brochure. 


Mail To: Radio Shack, Dept. 84-A-14 
300 One Tandy Center, Fort Worth, Texas 76102 
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NAME 





ADDRESS 





CITY STATE ZIP 








TELEPHONE 
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SHOWN ACTUAL SIZE 


Prices apply at participating Radio Shack stores and dealers. Microsoft is a 
registered trademark of Microsoft, Inc 


COFFEE BREAK 


Try Your Hand 
at Blackjack 
It’s a Good Deal 


for Dull Moments! 


Program By 
Robert Frowenfeld 


here will be times, of course, when 

you have finished all the work you 

were doing with your text proces- 
sor, calculated and formatted all the input 
values with your spreadsheet program, 
and shipped the whole, wonderful, elec- 
tronic distillation of your dedicated efforts 
to the home office via the magic of TEL- 
COM. Then what? Well, if you had the 
foresight to have anticipated this moment, 
assuming that you have no great excite- 
ment planned and waiting, you might have 
keyed in this dandy little version of Black- 
jack so that you could now unwind by 
trying to beat the “house” at a few hands. 

The graphics are excellent, employing 
the M100’s built-in symbols for the four 
card suits. Play is not only enjoyable, but 
made simple by programmed instructions. 
And, a running score is kept for you. 

So, go ahead. Anticipate that lull in the 
day’s schedule, and key this one into 
memory. You can’t lose. Or can you? 

The listing: 


1 CLS:60T010 
2 SE=VAL(RIGHTS(TIME$,2)) *VAL (DATES) : FOR 
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I:1TOSE: DU=RND (1) : МЕХТІ: РОКІ = 1Т052:Х(1) = 
Q:NEXTI 

3 VL(GL)SRND() $5281: X(VLC1)) 211 I1 

4 PRINTe151,Ij:1I92I*1: IFIZSSTHENRETURN 

5 Х=КМр (1) #52+1 

6 IFX(X) s1THENS 

7 VL(I)SX:X(X)21:60T04 

10 CLEAR208: DEF INTA-Z: DIMVL (52) ,Х (52) 

15 VL$z"A234557898JGK" 

20 PRINT@46,"Welcome to TRS-80 Blackjack 


25 PRINT@128,"The rules are simple ..." 
27 LINE(27,9) - (218,34) , 1,B 

38 80508800 

35 PRINT@45,"The house must draw on any 
16":PRINT@126,"and must stick with any 1 
7!%6050В800 

40 CLS 

50 GOSUB709 

60 W(1)=O:W(2)=2 

188 ‘deal cards 

185 CLS 

107 IFIX?42THENGOSUB700 

110 N(1)20:N(2) =0:ЕР=@ 

120 PL=1:GOSUB520 

150 Рі-2:6050В500 

140 PL=1:GOSUB5@0 

150 PL=2:GOSUB588 

155 HC=VL:HD=VL(IX-1) 

160 ‘check for blackjack 

170 PL=1:GOSUB78@: IFY=21THENGOSUB75@:PRI 
NT64Q, "You have"; :PRINT880, "Black-"; 1PRI 
NT8122," jack! "; 1508UB11090:G605UB768:WIz1: 
60701000 


180 PLz21G08UB780: IFY=21 THENGOSUB7S5®@: PRI 

NT@200," I have"; :PRINT8240, "Black-";:PR 
INT6282,"jack!"41605UB760: GOSUB110@:WI=2 
:60T01000 

200 'player goes 

205 PL=1:GOSUB780:;PRINT@40,"You һауе” ІР 

RINT681,Y; 

210 PRINT@146@,"Card ?"; : РКІМТЕ200, " (Y/N) 
"31 A$2 INPUT$(I) 

220 IFA$z"Y"ORA$z"y"THENZSOELSEIFA$4?"N" 

ANDAS< >"n" THEN2Z18 

225 8070400 

250 PL=1:GOSUB500 

240 ‘evaluate 

245 BOSUB780: IFX>21ANDY>21THEN268 

250 68070200 

260 ‘busted 

278 BO0SUB7S58:PRINTe8O, "You have"; 1PRINTG 
120,"Busted'"; : РКІМТЕ200, "This was"; : РКІ 

МТ 240, "му hand:"; 

280 60508720: 01=2: 60701000 

400 ‘computer goes 

405 PRINT@16@,STRING$(S," ");:РКІМТӨЕ200, 

STRIN6$(8," "); 

410 PRINT@200,"Now its";:PRINT&240,"my t 

штп!";:5080В1120 

415 60508760 

420 PL=2:GOSUB7980 

450 ‘draw? 

445 IFX>160RY>16THEN4SB8S 

450 ‘draw card 

455 PL=2:GOSUB500 

460 GOSUBR780 

478 ІҒХ>21ТНЕМ490 

480 ІҒХ<17АМВҮ<17ТНЕМ450 

482 ІҒХ<17АМрҮ>21ТНЕМ450 

485 ‘stick 

486 PRINT@200," I have "j:PRINTG240," "Y 
” ";:6050В1190 

487 68070600 

490 ‘bust 

495 PRINTé200,"O0h no! "“g:PRINT@240,"I b 

usted"; :WI-1:60T01000 

499 6070499 

500 ‘get one card from deck 

510 CD=N(PL)+isN(PL)=N(PL) *1:VLEVL(IX) 18 

0508900: 1Х=1Х+1 

515 VLzVL-13*INT((VL-1)/13) 

517 IFVL>L@THENVL=10 

518 C(PL,N(PL))=VL 

520 T(PL)ZT(PL) *VLIRETURN 

500 ‘determine winner 

620 PL:2:608UB780:8zY:PL21:608UB780 

640 IFY>STHENWI=1ELSEIFS>YTHENWI=2ELSEW! 
=0 

658 60701000 

700 ‘shuffle 

705 PRINT6126,"I'11 shuffle the deck ... 


710 GOSUB2 

715 CLS1IX*1 

720 RETURN 

750 ‘clear left side 

755 FORIRsQTO7:PRINTeIR*4Q0,STRING$(8," " 

) 3 SNEXTIRI RETURN 

760 'display hole card 

768 FPz11CD22:PLz2: VLEHDI CE I SILINE(CK*5-3 

4153) - (Сж6+19, 235-26) ,2,BF1G08UB910 

770 RETURN 

780 ‘total either hand 

782 6050В850 

785 X=O:Y=@:FORI=1TON(PL):Z=C(PL,I) 

790 X=X+Z:Y=V+Zs IFZS1ANDYCI2THENYsY«*10 

795 NEXTI:RETURN 

800 PRINT@285,"Press any key to continue 
"ssAS=INPUT$ (1): RETURN 

850 ‘sort hand 

860 N=N(PL)-i:FORI=1 ТОМ: FORJ=1TON 

865 IF C(PL,J)>C(PL,J+i1) THEN 880 

870 TzC(PL,J) 1C (PL,J) C(PL,UJ*1) 1 (PL J+l 

)-Т 

880 NEXTJ:NEXTI 

890 RETURN 

900 “аған саға 

905 IFPL=2ANDCD=2THENR=43: GOT0960 

910 C=5+CD#4 

920 IFPL=1THENR=32ELSER=63 

930 IFPL=1THENP=40+CELSEP=200+C 

940 V$sCHR$(1S6* INT((VL-1)/13)) 

950 PRINT6P,V$; :PRINT8P*82,U$; :A$2MIDS$ (V 

L$,VL-13*INT( (VL-71)/13) , 1) 1PRINTGP*41,A5$ 

j IFA$Z"Ü"THENPRINTG8P*40, "1"; 

960 LINE(C*5-3,R) -(C*6*19,R-26) ,1,B 

963 IFFP=1THENRETURN 

965 IFPL=2ANDCD=2THENLINE (C*6-3,R) - (C*6* 

19,R-26) sLINE(C#4-3,R-26) -(C*5*19,R) 

970 RETURN 

1000 ‘end 

1005 605081100 

1010 GOSUB750 

1015 И(МІ) =н (ИІ) +1 

1020 IFWI=1THENPRINT@8@,"You Міп!"; Е 5ЕІ 

FWI=2THENPRINT@200," Ha На "; : РКІМТЕ240 

$^ I win! "sSELSEPRINT@16@," A TIE! "; 

1025 GO0SUB11090:GOSUB750 

1027 РКІМТЕЙ, "Score ~"; : РКІМТЕ40, "You: "; 

W(1) 3 iPRINT880," Me:"4W(2); 

1050 PRINT@160,"Another ";:PRINT6200," б 

ame?  "j:PRINT8280," (Y/N) ";1A$2INPUTÉ( 

1) 

1040 IFAS="Y"ORAS="y"THENIQBELSEIFAS="n" 

ORA$z"N'"THENIOSOELSE1030 

1050 PRINT@16@,"Are you ";:PRINT8200," 5 

ure ?";:PRINT6287,""; 

1060 AS=INPUT$(1): IFAS="Y"ORAS="y"THENME 

NUELSE100 

1100 FORT=1T02000:NEXTI:RETURN 

1120 FORI-1TO1000: NEXTI: RETURN PCM 
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Let’s Get Organized 
With Our Model 100 


By Lawrence C. Falk 





In last month’s issue we talked about 
using the sorting program found in your 
PoCo manual for sorting files created 
with the ADDRSS and SCHEDL 
utility programs which are built in to the 
Model 100. Now, we want to talk about 
organizing things through шее same 
files. 

Actually, we are not going to be talk- 
ing about a whole lot of “tricks” in this 
presentation. Rather, we have devel- 
oped a few techniques that will allow 
you to make better use of these two data 
base-type files and modify them for 
your own use. 

A few definitions first. The first one is 
one which we have used already, data 
base. You will hear a lot of people talk- 
ing about data bases and data base 
managers. All a data base program is, 
really, is an electronic file system. Some 
of them, obviously, are better than oth- 
ers and some of them have more bells 
and whistles than others. The "typical" 
data base program will allow you to 
enter data, search through that data and 
sort the data. Usually, you can also get 
reports of what is in the data base as 
well. 





Ж. 
2 Jai 


7 “Searching i is Ж a. way (di you can look sk through "A 
d “everything you have in.afile and “find” the things you. 
2 “are seeking. . 7, “Тһе ability. todo this is built into. 5280, ж 
wo data base) programs on Bogo: УУЛУУ, 


ЖА 


each package we have seen includes а 
data base system. 

Another definition about which you 
should be aware is “search.” This, too, is 
built in to the Portable Computer pro- 
grams we are discussing. Searching is 
merely a way that you can look through 
everything you have ina file and “find” 
the things you are seeking. 

As an example, suppose you had 
created a file of recipes. And, among the 
entries you had “Chef Salad,” “Caesar 
Salad,” “Garden Salad” and “Spinach 
Salad.” Of course, you have lots of 
other recipes in there, too — like “Pizza,” 
“Hot Cross Buns,” and so on. 

But, say, you're ready to plan a meal 
and need a recipe for a salad. If you 
know wat salad you want, you simply 
search for the full name of the salad. 
But, if you just want a salad, you can 
search for just the word "salad" and the 
recipe for all four of them will appear. 
Then, you can choose which one of 
them to make. 

The ability to do this is built into your 
two data base programs on PoCo. Assum- 
ing you want to use the SCHEDL file to 
hold the recipes, just select that file from 





Because of their versatility, data base 
programs are among the most popular 
of those available for personal compu- 
ters. That Radio Shack includes rwo of 
them in their built-in programs attests 
to that. And, of the commercial soft- 
ware coming to market for the PoCo, 
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the main menu, press the ЕІ Key for the 
"Find" option and type in the word 
Salad. You can, of course, get a printout 
by using the "L find" option. 

So, searching is merely asking the 
computer to look through the file and 
find whatever it is you are looking for. 


Sorting is arranging things in some 
order. Usingthe program which appears 
in the back of the manual, you will be 
able to sort the entire file (see PCM 
July, 1983). Then, when you go to 
search, the files will come out in the 
order specified. 

A word of caution: Computers (includ- 
ing your PoCo) sort using something 
called an ASCII system. That means 
each letter and number is assigned a 
value. Numbers have /ower values than 
letters, so they come first in a sort. 
Space (and most punctuation) come 
before numbers, so they will be at the 
very top of the list when doing a sort. 

Additionally, in sorting, lower case 
letters have different values than do 
upper case. Yes, we know this doesn't 
make a difference when you search with 
the built-in programs; but it does make 
a difference when you sort with the pro- 
gram provided in the manual. 

If this sounds a bit complicated, it is. 
But, at the same time, you can put these 
differences to good use. 

(By the way, most data base pro- 
grams do not change the actual file 
when they sort, they just doa sort in the 
computer's memory. That is not how 
the function works with the built-in 
programs.) 

The final definition we are going to 
bother you with is field. A field is any 
piece of information. If you want to set 
up a name and address file, usually you 
would have a series of entries such as 
first name, last name, street address, 
city, state, zip code and telephone number. 
Each of those elements is considered a 


field. 


We will be talking about fields as we 
move along simply because you will 
probably run into this term more and 
more as you get more involved with 
your Portable Computer. May as well 
get used to it, as the saying goes. 


Using The Files 

You do not have to use the two built- 
in files for the purposes specified, although 
having the ability to dial a telephone 
number with the ADDRSS file is handy. 
For that reason, we will talk about the 
SCHEDL file here, yet you do not have 
to use just that one. You can use ADDRSS, 
too. 

We do believe one of the most handy 
uses for the SCHEDL file is the use for 
which it was intended, as a schedule file. 
Yet, using non-sorted files can create a 
problem on the one hand and you can 
make your schedule much more effi- 
cient with a few simple modifications 
which take some basic computer princi- 
ples into consideration. 

The easiest way to use the SCHEDL 
file is to simply call it up (through 
TEXT) and add or subtract informa- 
tion as you see fit. If you do, you might 
come up with entries which look some- 
thing like this: 


WEDNESDAY J. JONES MEETING 
8/23 FLY TO DALLAS 
ZEB - LUNCH AUG 24 


Truth: If you use your search func- 
tion for “Zeb” you will get a display 
which gives you the information on the 
luncheon with Zeb. And, if you need to 
remember when you fly to Dallas, the 
simple entry “Fly” or “Dallas” will get it 
for you. This is one of the features we 
like best in the Model 100’s built-in 
programs. 

But, let’s just assume you will be 
meeting Mr. Jones on Wednesday, fly- 
ing to Dallas the next (the 23rd) and 
planning to have lunch with Zeb there 
the next day. After that, you come 
home. If you sort this file, and then print 
it out, it will first show the flight to 
Dallas, then the meeting with Jones 
and, finally, lunch with Zeb. It will be all 
messed up and, if you want to take a 
printout of the schedule of your Dallas 
trip with you, it can be a mess to figure 
out. Especially if there are several meet- 
ings over several days in several places. 

What to do? The most obvious one is 
to build a little structure into your file. 


Structure A Dirty Word? 

We're not talking about some big 
complicated system that is more trouble 
to keep track of than anything else. All 
we suggest is a few simple rules which 
should help you set up your files a little 
better and, more important, use them 
much more efficiently. 

Rule One is on dates. Make them the 
first item in each entry. We'll call this 
the "date field." 


For best results, the date field should 
be the same length in every entry. And, 
to make it even easier, make the date 
field in the form Year/ Month/ Day/ Time. 
So, if you have to meet Zeb at 11:45 on 
the morning of August 24, make the 
date field look like this: 


84/08/24/1145a 


The year is optional, but if you will be 
entering information which will span 
between one year and the next, you will 
want to have the year in there. That is 
because your Portable Computer will 


However, there are a few things you 
might wish to consider. 

We enter all airplane flights as DL 
#233 TO DALLAS AR 1130a. The 
common key here is the “#” symbol. If 
we are searching to find out plane 
flights, we can merely “Find” the sym- 
bol #. That gets us every flight and, 
because we have sorted our file, it gives 
them in order (because of the date field 
which would have preceeded the above 
listing). 

The DL stands for Delta Air Lines. 
We use TWA for (naturally) TWA, UA 





sort January entries (01) before December 
entries (12). 

The slash marks are another option, 
but they make it easier to read. 

You will see here we have established 
the year to occupy two characters, the 
month to take up two characters, the 
day to take up two characters and the 
time to take up five. If the number you 
are putting in any area is less than the 
number of characters needed to fill it, 
just put in zeroes. 

As an example, if it is to be breakfast 
with Zeb rather than lunch, you would 
write the time as 0830a. If it is dinner, 
use 0730p. The “а” and the “р” are for 
a.m. and p.m. 

This format will give you the ability 
to sort your entire file by date and time. 
Still, you will be able to search as well; 
just simply specify how much informa- 
tion you want. 


Search A Month 

If you wish to know all the appoint- 
ments you have scheduled for August, 
just “Find” for 84/08. On the other 
hand if you need to know appointments 
for August 22, then “Find” for 84/08/22. 
Want to know what you will be doing at 
11 a.m. every day? Just "Find" for 
/1100а. 

Next, it is time to enter what you will 
be doing. We suggest that you go a bit 
free form on this, as suits your needs. 


for United, AM for American and so 
on. Also, you'll save space in your file 
(and memory in your computer) if you 
use the standard abbreviations for air- 
ports (such as DFW in the above). But, 
you better know these abbreviations. 

Since the date field tells us what time 
the plane leaves, we use AR //30a to tell 
us what time it arrives. You may not 
care. We like to know. 

For lack of a better term, we call this 
the information field. lt does not have 
to have only flight information in it. It 
can have meetings, luncheon engage- 
ments, appointments and the like. 

In order to key in these things, we use 
a unique symbol for each one as well. 
For instance, we use (7) for telephone 
calls that have to be made; (M) for meet- 
ings, and, most important, (Ж) for important 
things like birthdays and wedding anni- 
versaries. You can search for these spe- 
cific things by using the unique character. 

And, yes, your PoCo has special 
symbols which both match some of 
these special needs (like a little tele- 
phone) that you can use instead of our 
symbols. It is just that our symbols 
work for us. 

Using these general data base princi- 
ples will allow you to search and sort 
more easily. In our next article, we will 
talk about methods to get printouts 
which are easy to read and understand 
using the "Lfind" built-in function. 
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INSIDE 


THE MODEL 
100 


By Bob Rosen 





AND 
OUTSIDE 


he introduction of the Radio Shack Model 100 echoes in a 
| new generation of microcomputers. For a computer that 
measures 1134 inches wide by 8% inches high by 17 inches 
deep, it is amazing what it contains. It has a full QWERTY key- 
board with normal keys sloped at a slight angle for easy viewing. 
Besides the usual standard keys, it has an additional 16 function 
and control keys. Some of the extra keys are GRAPH, CODE and 
NUM. The NUM key converts the lower right-hand corner keys 
into a 10-key numeric keyboard. The GRAPH key can be used to 
show 41 special graphic characters. Thirty-two additional block 
graphic characters can be displayed by pressing the SHIFT and 
GRAPH keys along with another key. Even more special charac- 
ters can be produced by using the CODE key. All keys have 
automatic key repeat when held down for more than a second. The 
Model 100 can produce all of the 256 ASCII character set from the 
keyboard. 

The display is a 40-character by 8-line flat LCD screen with a 
viewing adjustment control on the left side of the case. The control 
allows you to lighten or darken the display to match any viewing 
angle. The display is large enough for word processing applica- 
tions. Thisis the major complaint about the Epson HX-20 portable 
computer which has only a four-line, 20-character display. The 
Model 100 display is large enough to show graphics. Its LCD 
screen can produce 64 rows by 240 columns of dot-addressable 
graphics that can be used for charts and graphs. 

The Model 100 contains many connectors and switches. On its 
rear panel are inputs for a serial and parallel printer, telephone 
modem and cassette recorder. There is also an 8-pin DIN connec- 
tor to interface the Model 100's built-in direct-connect modem to 
the telephone line. The parallel printer interface is Centronics 
compatible and will interface to printers such as Epson, Okidata 
and C-Itoh. The RS-232 interface can be used both for serial 
printers and external modems. This will allow you to hoop up an 
acoustic coupler modem for public and hotel telephones. The 
Model 100 can be directly connected to another computer through 
a null modem cable. One can prepare reports from anywhere, be it 
a bus, plane or train and then transfer it to a larger computer via the 
phone lines or null modem cable. This one feature is the Model 
100's biggest selling point. Salespeople and executives will find the 


Model 100 indispensable for their work. 
Since there is a cassette recorder input, 
data and programs can be loaded or 
saved on tape. One can carry much 
information when traveling with the 
Model 100. 

On the right-hand side of the compu- 
ter is an on/off switch, LCD display 
control and a power adapter jack. You 
can operate the Model 100 via AC, 
which saves battery life. This can be 
very useful since maximum battery life 
is only 20 hours. The battery life of a 
32K Model 100 is only five hours! On 
the left side of the computer is a connec- 
tor and two switches. The connector is 
the familiar 9-pin D connector known 
to all Atari owners. This is the input for 
a Bar Code Reader. A BCR is used to 
interpret the black and white bars found 
on magazines, cans, etc. At the moment, 
Radio Shack is working on the software 
and hardware for it. A third-party com- 
pany, B.T. Enterprises of Bohemia, New 
York, already is advertising a BCR for 
the machine. This feature will generate 
even more sales for the Model 100 once 
it is fully supported and on the market. 
The two switches are for modem opera- 
tion. One is to select the answer or orig- 
inate mode and the other is for selecting 


the built-in modem or an external 
acoustic coupler modem. That covers 
the outside of the Model 100. 

Now onto the inside which is even 
more impressive. The Model 100 uses a 
80C85 CPU as its microprocessor. It isa 
8-bit CPU with a clock speed of 2.4 
MHz. The 80C85 is a CMOS version of 
the 8085 CPU. All the chips in the 
Model 100 are CMOS chips, which 
require extremely low current drain. 
Without this low current drain the 
Model 100 would not be able to retain 
its memory when the computer is off. It 
uses Ni-Cad batteries to backup this 
memory. These batteries are kept re- 
charged from either the AC power 
supply or the internal four AA batteries. 
There is a low-battery warning light 
next tothe LCD screen to tell you when 
the AA batteries need to be changed. 
The Ni-Cad’s will maintain your mem- 
ory for 30 days for a 8K 100, but only a 
week forthe 32K model. The AA batter- 
ies are stored behind one of the two 
covers located on the bottom of the 
Model 100. 

Moving on to the other cover reveals 
two very interesting empty sockets. The 
top socket is for installing additional 
ROM-based programs such as an elec- 


Plot Against Your Competition! 
with QuickPlot® 


tronic spreadsheet. The bottom socket 
is the expansion port to extend the 40- 
pin bus of the computer. Radio Shack 
has not yet officially said what they plan 
to add to the expansion port but disk 
drives and a video interface would be 
strong possibilities. Look for third party 
companies to capitalize on this expand- 
ability. 

The Model 100 is available with either 
8K or 24K of memory. It can be ex- 
panded by plugging in 8K memory 
modules. Unfortunately, to expand 
from 8K to 32K could be very costly. At 
the moment Radio Shack would charge 
almost $400 for this upgrade. Fortu- 
nately, Spectrum Projects is planning to 
come out with memory upgrades at 
almost half that price. Further detail 
will appear in future issues of PCM. 
Judging from software ads in PCM, 
business programs such as an electronic 
spreadsheet will require at least 24K. 

In closing, 1 hope you are now as 
impressed as 1 am with this fantastic 
computer. Until next time, go LOCO 
with your PoCo! PCM] 


(Bob Rosen is president of Spec- 


trum Projects and runs three 
Color Computer bulletin boards.) 
















We've just given the CGP-115 Color 
Plotter business status. With Quick- 
Plot, your TRS-80 or IBM-PC can 
produce high quality line-, bar-, and 
pie-charts in vivid color. Simple data 
entry and flexible chart formatting 
makes QuickPlot and the CGP-115 
Color Plotter the logical choice for 
the professional who wants to plot 
his profits—not spend them. 
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Now you have a friend in the software business. 



















Complete QuickPlot Package Model 11/12/16........... $89 
Includes: Bar Chart, Pie Chart, Modellll/4 ............. $89 í i 
and Line Graph. Data and chart Мойе1100.............. $49 S DRE ath E S 2611 i id p Drive 
formats save to disk for future ІВМ-РС/ХТ............. $89 OLUTION Louisville, 027 

“е о м P A н Y (502) 937-4311 


plotting. 








Call or write to place your order or send for free 
information. 





TRS-80 and CGP-115 are registered trademarks of Tandy Corporation. PC and 
PC/XT are registered trademarks of IBM Corporation. 
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Drawing A Pie Chart 


On The 
Screen 


By Michael Stanford 


(Michael Stanford is director of systems 
for Portable Computer Support Group, 
Dallas, Texas) 


software for the Model 100 there is 

an excellent graphics program 
called Graph+. This program works in 
conjunction with another program in 
the group called EX PNS+ that produ- 
ces a spreadsheet. The Graph+ program 
does not write to the screen, but instead 
prints out on the Radio Shack DMP- 
100 Dot Matrix printer. 

The screen is really too small to pro- 
duce graphs that are displayable. A 
graph has its impact in the printed form. 

We do, however, recognize some val- 
ue in screen graphics, if for nothing 
more than one’s own amusement. There- 
fore, we are providing for you in this 
article a very enjoyable screen pie chart 
program, along with a discussion con- 
cerning some of the programming logic. 

To draw a pie chart we must get the 
data to be plotted, perform certain 
operations on it, and cause it to be dis- 
played on the LCD. 

In this illustration we will obtain the 
values to be plotted from the keyboard 
using the following self-explanatory 
code, which stores the values in a double 
precision (#) array called V#(). Input is 
terminated witha null or negative value. 
We use string input to avoid the irritat- 
ing “Redo from start” error message. 
100 N%=0:CLS:DIM V#(17) 

110 LINE INPUT “Please give me a 
number: ";Q$ 

120 V#(N%+1)=VAL(Q$) 

130 IF УЯ(М%ҒІ)>0 AND М%<16 
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THEN N%=N%+1:GOTO 110 


Now we have an array of values to 
plot. We must find the total size of the 
pie (kept in V#(0)): 

150 FOR 1%=1 TO N%:V#(0)=V#(0)+ 
У# (19%): NEXT 


Next we must obtain the start angle 
and the end angle of each slice of the pie. 
The computer works in radians. Since 
we are limited to a radius of 30 dots, the 
circumference will be a maximum of 2 
pitimes 30 or about 200 dots, so this is a 
reasonable unit to divide the circle into. 
We could work in degrees, but the defi- 
nition would be no better, and the calcu- 
lations would take about twice as long. 

The end angle of each slice is kept in 
the array EA%(). 


200 DIM EA%(N%+1):EA%(0)=0 
210 FOR 19%=1 TO N% 


220 ЕА%41%)-ЕА%41%-І)-ІМТ(200 
*V#(1%)/ V#(0)+0.5) 
230 NEXT 


Now we have a series of end angles in 
units of 1/200 ofa circle. All we have to 
do is plot the slices of the pie one at a 
time. Slice 1% starts at EA%(1%-1) and 
ends at EA%(1%). 

In order to plot a sector of a circle we 
must know not only the start angle and 
the end angle, but also the origin and the 
radius. 

Since the LCD on the Model 100 is 
240 cells wide by 64 cells high, the max- 
imum radius we can have is about 30, 


the center of the screen is at X=120, 
Y=32. We set these at the beginning of 
the program: 

10 R%=30:0X%=120:0Y %=32 


It is simple geometry to plot a point at 
a certain distance from an origin at a 
certain angle. Figure | illustrates this 
for an origin of 0,0: 


R 
Y 


0,0 a X 


We remember from our geometry 
classes that 
Y/R=SINa,X/R=Cosa,Y/X=Tana 


Since we know R and a, we can get 
Y=R Sina X=R Cos a 


For an origin other than 0,0 we simply 
add the offset, so that our equations 
become 


Y=0Y+R*Sin(a) X=0X+R*Cos(a) 


So now we can plot a segment by plot- 
ting the first point, joining it to the 
origin, then plotting a point at each unit 
position along the circumference to the 
last, then joining that last point to the 
origin. Bear in mind that our angles 
must be converted to radians by multi- 
plying by a conversion factor (C# — 
we'll figure it out later). 

1000 A%=EA%(1%-1):GOSUB 1100 
1010 LINE (0Х%,0Ү%)-(Х%,Ү%) 
1020 FOR А%-А% ТО ЕА%(1%) 


1030 GOSUB 1100:PSET (Х%,Ү%) 

1040 NEXT 

1050 LINE(OX%,0 

1060 RETURN 

1090 ’ 

1100 A#=A%*C# 

1110 Х%-0Х%-ІМТ(К%%СО5(АЗЯ) 
+0.5) 

1120 Y%= 
+0.5) 

1130 RETURN 


The subroutine at 1000 plots the seg- 
ment, calling the subroutine at 1100 to 
get the XY coordinates of each point in 
turn. 

It only remains to call the segment 
plotting routine once for each slice of 
the pie. 

300 CLS:FOR I%=1 TO N%:GOSUB 
1000:NEXT 
310 END 

The conversion factor we left hanging 
earlier on is easily deduced from the 
knowledge that there are 2 pi radians in 
a circle, and 200 points in our pie’s cir- 


Y90)-(X96, Y 90) 


0Ү%-ІМТ(К%%51М(АЯ) 


cumference. C# is therefore 2*pi/200 
which simplifies to: 
20 C#=3.14159/ 100 

Following we present the program in 
its entirety for you to type into your 
Model 100. Keep in mind that the 
graphs produced by Graph+ in the 
BUSINESSPAK- software package 
are much more sophisticated, and are 
complete with labels and value represen- 
tation. 
10 RZs30:0X72 
14159/100 
90 ' 
100 
110 
е а 
120 
130 
HEN 
140 
150 FOR IZ*1 ТО №: У# (0) =У# (0 
Fedi NEXT 


120:0Y%232:C#=3. 


NZ=OsCLS:DIM V#(17) 

LINE INPUT "Please give m 
numbers ": 0$ 
V#(NZ+1) =VAL (0$) 

IF V#(NZAt1)>@ AND NZ416 T 
ММ + 116070110 


200 DIM ЕАЯХ (№ +1) :ЕАХ (0) =0 
210 FOR 17=1 TO NX 
220 ЕАХ (17) =ЕАХ(17- 
00жУ% (17) /У# (0) 0,5) 
2380 NEXT 

290. * 

300 CLS:FOR 17=1 TO №: БОБОВ 
1000: NEXT 


1) *tINT(2 


310 END 

990 ' 

1000 АХ=ЕА (17-1) 160508 1100 
1010 LINE(OX%,OY%) -(X%,Y%) 
1820 FOR AZsAZ TO ЕАУ (17) 
1030 GOSUB 110@:PSET(X%,Y%) 
1040 NEXT 

1050 LINE (OX%,0Y%) -(X%,¥%) 
1050 RETURN 

1098 ' 

1100 Айзада) 

1110 XXs0XX*INT(RY&COS (AW) +0, 


YZ20YX*INT(RZ*SIN(AW) +0, 
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Your Perfect Portable Companion 


Now, here's your opportunity to have PCM — The Portable Computing Magazine delivered to your home 


PCM will bring you the finest and most up-to-date information available anywhere for your TRS-80 
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On The Road 


By Robert Frowenfeld 
PCM Contributing Editor 


ere’s a little program that will 
H help you get from here to there 

the next time you are On the 
Road. Unlike last month’s program, 
you really have to be on the road to 
make the most of the Model 100 pro- 
gram called TR/P. This program (see 
listing) not only performs the computa- 
tions of those expensive “car compu- 
ters,” but also helps you plan your 
automobile trips, keeps track of your 
mileage and gasoline purchases, and 
even prints a report at the end of a long 
trip to tell you your total gas purchases 
and overall mpg’s. Let’s take a look at 
the five functions available and how to 
make the most of them. 

Figure #1 displays the main menu 
with the available selections. The first 
function, Miles per Gallon—one tank 
computes the mileage obtained on one 
tank of gas. As shown in Figure #2, you 
enter the starting and ending mileage as 
indicated on your odometer, the price 
per gallon, and the amount of money 
spent. The Model 100 computes the 
actual number of gallons purchased; I 
find this to bea little more accurate than 
trying to read the number of gallons 
from the pump. 


Figure 1 


жага". "а, 
xe a ao. 


‚у 
$f. 
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The second function assists you in 
planning your trip by computing your 
arrival time. As seen in Figure #3, the 
program prompts you for the current 
time, your current traveling speed, and 
the distance remaining—then instantly 
informs you of your estimated time of 
arrival. 

The next function, Speed to Arrive at 
Specified Time, is my favorite. The 
Model 100 asks you for the current 


Figure 2 


Starting Mileage: 
Ending Mileage: 
Price per Gallon: 
Dollars Spent : 


35245 
35498 
1.249 
20.00 


Miles per Gallon: 15.80 


time, the time you want to reach your 
destination, the distance remaining, and 
the total duration (in minutes) of any 
expected delays such as traffic jams, toll 
booths, filling up the old gas tank, etc. It 
then responds with the speed you 


Figure 3 


1) Miles per Gallon -- one tank 


2) Compute Arrival Time 


3) Speed to Arrive at Specified Tiae 
4) Record Gasoline Purchase 
5) Trip Report -- Overall MPG 


6) End Program 


Enter Selection: 


Enter Time (hh:mm) : 





should maintain to arrive at the speci- 
fied time (Figure 44). A word of advice: 
try and make your arrival time a reason- 
able number; even your Model 100 
won't talk you into a speeding ticket! 

Options #4 and #5 are used together 
to prepare a log of your gasoline pur- 
chases. Using an ASCII file named 
TRIP.DO, the program creates a data 
base of gas purchases to be used at the 
end of a trip to compute your overall 
miles per gallon figure. Option #4 asks 
for the date, price per gallon, and a- 
mount spent to fill up your tank. This 
can be used whenever you gas up. By 
creating the ASCII file, the purchase(s) 
are stored indefinitely and can be added 
to and/or displayed at any time. At the 
end of the trip (or any time you want), 
option #5 prepares a report which, if 
desired, can also be printed to an at- 
tached printer (see Figure #5). The re- 
port summarizes the gasoline purchas- 
es, prints the total mileage traveled, the 
total number of gallons purchased, and 
the overall mpg figure. 

So this summer, take PCM 5 advice 
and carry your Model 100 along as your 
traveling companion and . . . happy 
motoring! 


10:50 


Current Speed (mph): 68 


Est, 


Arrival Time 


Distance Remaining : 175 


р 43125 ( 1125 ра) 
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Figure 4 
Current Time (hhimm): 8:00 
Est. Arrival Time : 11:80 
Expect Delays (min) : 50 
Distance Remaining : 150 


Maintain Speed of : 60.00 mph 


Figure 5 
Date $/gal Spent Gallons 
07/01/83 1.269 22.90 17.730 
07/03/83 1.279 20.75 16.224 
07/04/83 1.189 19.00 15.980 
07/07/85 1.229 21.50 17.494 


Total Mileage = 25430 - 23984 = 1446 
Total Gallons = 67.43 


Average MPG = 21.45 


The listing: 

5 CLS:DEFINT I-N 

10 CLS 

20 FOR 1=1 TO &:READ O$(ID:NEXT I 

30 GOSUB 820 

40 F1$z"9. ### LII нн" 

50 DATA"Miles per Gallon -- one tank","C 

ompute Arrival Time","Speed to Arrive at 
Specified Тізе" 

51 DATA"Record Gasoline Purchase","Trip 
Report -- Overall MPG" 

52 DATA"End Program" 

100 CLS:FOR Ізі TO 6:PRINT USING"A4"; Ij 1P 
RINT") "O$(ID?:NEXT I 

110 PRINT@280,"Enter Selection: "; 

120 A$zINPUT$(1)XsVAL(AS) IF Х<1 OR X56 
THEN 119 

150 ON X GOTO 140,200,500,400,500,700 
140 ‘tankful 

150 CLS:PRINTeQ,"Starting Mileage: ";: 60 
SUB 800:5М-Х 

155 PRINT@40, "Ending 
800: ЕМ=Х 

160 PRINTé88,"Price per Gallon: "y1GOSUB 
800: Рб=Х 

170 PRINT@128,"Dollars Spent 
В 8800:DL*X 

180 PRINT@200,"Miles per Gallon: "USING 
"A4. 44"; (ЕМ-5М) / (DL/PG) 

190 GOSUB 810:GOTO 100 

200 ‘arrival time 

210 CLS:PRINT"Enter Time (hhimm) : "3:60 
SUB 800:JzINSTR(AS,"1') 11F Ј=0 THEN 210 
215 Hi=XsMI=VAL (MIDS (A$, J+1)) 

220 PRINTe4Q,"Current Speed (mph): "3:60 

SUB 800: 8Р=Х 

230 PRINTé8O,"Distance Remaining : "3:60 
SUB 800:01-Х 

240 PRINT8150,"Est. Arrival Time : "3 
245 HzDI/SP:M260* (H- INT(H) ) 22 INT(H) +H} 


Mileage: "j:G08UB 


+ "716080 


GOLDLABEL" 
BLANK CASSETTES 


x PREMIUM 5 SCREW SHELL 
x COMPUTER DATA QUALITY xLOW NOISE 
x MADE IN USA ж GUARANTEED 


1 DOZEN C-10 LENGTH $8.50 + $2.50 shpg. 
2 DOZEN C-10 LENGTH $16.00 + $3.50 shpg. 


1 DOZEN C-30 LENGTH $12.50 + $2.50 shpg. 
2 DOZEN C-30 LENGTH $23.50 + $3.50 shpg. 


Individual storage boxes (sold only with cassettes) $2.40 per dozen. 
CASSETTE CADDY: $3.95 $2.00 shpg. 
2 for $7.00 + $3.00 shpg. 


Free shipping on one caddy with each dozen cassettes. 


Foreign orders include shipping at 16 oz. per dozen tapes/9 oz. per 
caddy/13 oz. per dozen boxes. Shipped in U.S. by UPS. 


CASSETTE CADDY 


TIRED OF MISPLACED TAPES AND A CLUTTERED WORK AREA? TRY 
OUR HINGED TOP SMOKED PLASTIC CADDY THAT HOLDS 12 TAPES IN 
ONE HANDY LOCATION. EDGE LABELS INCLUDED TO IDENTIFY TAPES. 


CERTIFICATION 
SEAL 


Visa and Mastercard accepted (include expiration date) Orders paid by 
cashier's check, money order or bankcard are shipped within 48 hours. 
Personal check takes 1-2 wks. No COD. Some foreign sales are restricted. 
Texas residents add 5% tax. 


COLOR SOFTWARE SERVICES 
P.0. BOX 1708, DEPT. R 
GREENVILLE, TEXAS 75401 


Telephone Orders: (214) 454-3674 9-4 Monday-Saturday 


* DEALER INQUIRIES INVITED * QUANTITY DISCOUNTS AVAILABLE 
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1H22M1*M: IF M2»260 THEN H2=H2+1:M2=M2-68 
250 PRINT USING"44:"; H2; : IF М2<10 THEN Р 

RINT"8";USING"A"; M2;ELSE PRINT USING" ##" 
1423 

255 IF Н2212 THEN PRINT USING" 

m)":H2-12; M2j 

257 IF M2418 THEN PRINT@192,"0"3 

250 GOSUB 810:60TO 100 

300 ‘speed 

505 CLS:PRINTéQ,"Current Time (hh:mm): " 
:808UB 8880:J2INSTR(A$,"1")11IF J2@ THENS 

05 ELSE H1zX:M1IsVAL(MIDS(AS,J]*1)) : IF M12 

59 THEN 305 

310 PRINT840Q,"Est. Arrival Time : “336 

DSUB 8080:J*INSTR(AS$,":") :IF Ј=@ THEN 318 

315 H22X:M2zVAL(MID$(AS,J*1)) s IF М2>59 Т 

HEN 310 

317 IF H2*50*M24H1*6Q0*M1 THEN 305 

330 PRINT@8@,"Expect Delays (min) : ";:6 

OSUB 880:DL=Xx 

340 PRINT@120,"Distance Remaining : "j: 

GOSUB 800:014Х 

350 PRINT@200,"Maintain Speed of к 

35@ TT=H2*60+M2-H1 *#460-M1-DLiTT=TT/48 

370 RT=DI/TTSPRINT USING" HHH. ##"; КТ: : РАІ 

NT" mph":GOSUB 810:6070 100 

400 ‘trip gas purchase 

410 CLS:PRINTéQ,"Enter Date (mm/dd/yy): 

"ГІМЕ INPUTA$:DT$5A$:1IF AS=""THENIOO 

420 РКІМТЕ40, "Price per gallon 3 "4d 

GOSUB В@@:РК=Х 

450 PRINT@80,"$ spent this purchase: "3: 

GOSUB 880:DL=x 

435 PRINT8170,"Entry correct (Y/N): "j:A 

$zINPUTS$(I)IF A$z"N" OR AS="n" THEN 400 

ELSE IF А$<>"Ү" AND AS$<>"y" THEN 435 

440 PRINT41,CHR$(34) 5 DT$; CHR$(S4) " ,"jPRj 

нш. 

450 GOSUB 810:5070 100 

500 ‘trip report 

518 CLS 

520 PRINT@128,"Do you want output to go" 

530 PRINT@168,"to a printer too (Y/N) : 


(48:998 p 


"S:A$SINPUTSCID) 1 IF AS="n" OR A$z"N" THEN 

PT=@ ELSE IF A$="Y" OR A$="y" THEN РТ=-1 

ELSE 588 

535 CLS:PRINT"Enter Trip Starting Mileag 

e: ";:6808UB 8800:M1'zX 

536 PRINT"Enter Trip Ending Mileage: " 

3160SUB 808:M2!zX:MLzM2!-M1!:T620 

538 GOSUB 818 

540 CLOSE:OPEN“TRIP.DO" FOR INPUT AS 1 

545 CLS:PRINT" Date $/gal Spent 
Gallons":IF PT THEN LPRINT" Date 

$/gal Spent Gallons" 

546 0%Е"-------- етет ----- ==== 

---":PRINT D$:1F PT THEN LPRINT D$ 

550 IF EOF(1) THEN 575 

555 INPUT41,DT$,PR,DL 

$60 GLzDL/PRIPRINT DT$;TAB(11);USING F1$ 

;PR;DL;GL:IF PT THEN LPRINT DT$;TAB(11); 

USING F1$;PR; DL; GL 

578 TG=TG+6L: 6070550 

575 PRINT:PRINT"Total Mileage ="M2!"-"M1 

!"z"ML:PRINT"Total Gallons ="USING" ###. 

##"; TG 

576 IF PT THEN LPRINT:LPRINT"Total Milea 

ge z"M2!"-"MI!"z"ML:LPRINT"Total Gallons 
z"USING" $99. 93"; TG 

580 PRINT:PRINT"Average MPG = ";USING"## 

ESUSML/TG;:IF PT THEN LPRINT:LPRINT"Ave 

rage MPG = ";USING"44, 44"; ML/TG 

585 PRINT:PRINT 

590 GOSUB 810 

595 Сі5:РКІМТЕ122,"Кі11 Gasoline Purchas 

e File (Y/N) ? "prAS@INPUT$(1): IF A$z"Y" 

OR A$z"y" THEN KILL"TRIP.DO":80SUB 828 E 

LSE IF A$<>"N" AND A$»"n" THEN 595 

599 6070100 

700 ‘end 

718 CLS:PRINT8125,"End of Model 100 Trip 
Planner":FOR 1=1 TO 5000:МЕХТ І: МЕМО 

800 LINE ІМРОТА$: Х= УА! (А$) : RETURN 

810 PRINT@285,"Press any key to continue 
... "SEASSINPUTSCI) 9TRETURN 

820 OPEN"TRIP.DO" FOR APPEND AS шы. 


TRS-80 MODEL 100 OWNERS 
Three Software Packages From QAD 


. TYPIT (Output from TEXT) 
Set margins - top, bottom, left, right. 
Set line spaces - single, double, etc. 


Page numbering - start on any page number - include "footer." 


Right justify. 
LIMITATION: Runs slow. 


Solves problem of cursor ending up on right side of screen 
with certain host comupters. 
Upload (waits for host signal before sending each line). 
c. Download (sends signal to host when ready for next line). 
d. LIMITATION: For use with 300 baud. 
ELF (Eliminate Line Feed) 


When a word processing file is downloaded to the 100, "hard" line- 
feeds are sent by the host. ELF eliminates such line feeds so that 


the file can be used for word processing. 
SPECIAL!!! All of the above 
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Send me the following program: 
TYPIT - $24.95 O TERM - $19.95 [ ] 
All 3 Programs - $39.95 | | 





ELF - $14.95 [ ] 


Name 
Address 


Gily S 
[] Payment Enclosed b 
Charge (| Visa C] MasterCard oe 
Account No. Interbank No. (MC only) 


Signature 


GROWTH ASSOCIATES For more information 
Jane Hershberger or to order by phone 
1901 East First Street call: 

'$ Newton, KS 67114 (316) 283-2400 


Mail to: 








SOFTWARE 


BUSINESSPAK+ 


Software For Serious Users 


In one of the first offerings for the 
Model 100, the Portable Computer Sup- 
port Group has assembled a group of 
business related programs into a single 
package called ВОЅІМЕЅЅРАК +. Six 
main programs form the core of what 
could be considered necessary software 
for serious users, such as reporters, 
salesmen, managers and executives. 
The six programs and their respective 
memory requirements are as follows: 

1) WRITE+ — A screen and printer 
formatter used in conjunction with 
TEXT to enable real word process- 
ing. 4.1K 

2) EXPNS+ — A spreadsheet for ex- 
penses, budgets, etc., with 12 rows 
and 18 columns. 5.5K 

3) PUT+ — A screen formatting and 
data manager for mail lists, inven- 
tories and notes. 2.8K 

4) SORT+ — An alphabetic and nu- 
merical sorting routine for use with 
the data manager. 2.6K 

5) TELEX+— Send TELEX messages 
or E-Mail with your Model 100. 
3.9K 

6) GRAPH+ — A pie, bar and line 
graph generating program. 6.0K 
Adequate instructions are given regard- 

ing memory usage as the above figures 

are the length of the programs and not 
their associated text files. Each core 
program, along with several ancillaries 
such as demos, is furnished on a separ- 
ate tape enclosed in a 84” x 11” binder 
with the instructions. By the way, the 
instructions are excellent for the begin- 
ning user. Step by step guides direct you 


through each phase of operation. Each 
program is saved three times for protec- 
tion. We will examine the WRITE+, 
PUT+ and SORT+ programs in this 
review and cover the rest at a later date. 
WRITE+ 

As you are aware, the M100 has ап 
excellent text processor already. 
W RITE*+ enhances this editor with the 
addition of screen formatting. Three 
programs must be loaded from tape to 
use WRITE+, a text file, a BASIC pro- 
gram and a machine language program. 
After each tape load you must save the 
program to RAM using standard com- 
mands which are reiterated in the in- 
struction manual. Functions supported 
by the program include lines per page, 
all margins, headers and footers, line 
spacing, page numbering, copies and 
output routing. Embedded print com- 
mands are supported with specific in- 
structions for use with the DMP 100 
and Smith Corona TP-! printers. 

One of the most interesting features 
was output routing. By using the proper 
response to the format prompt “output 
to:” you can route the text to any device 
desired. In my particular situation I was 
using a 2400 Baud serial printer con- 
nected to the RS-232 port. By answer- 
ing the prompt with COM:67EIE all of 
the text was output to my "serial" prin- 
ter in the initialized format. Output can 
also be routed to the parallel printer 
port (default) or only to the screen. 
PUT+ 

A mini-data base program is always 
handy for any type of computer. PUT+ 
provides a method of organizing mail- 
ing lists, inventories or even the NOTE. 
DO file corresponding to the SCHED 
function of the PoCo. Two programs 
are initially loaded to demonstrate the 
use of PUT+. One is the program writ- 


8K MEMORY MODULES FOR THE 
TRS-80 MODEL 100 PORTABLE COMPUTER 


$85 each, 2 or more $80 each 
Exact Replacements for RS Memory 
Easy To Install * Warranty Included 


ten in BASIC and another is a sample 
screen format that could be used as a 
mailing list. Two other examples are 
available. Inventory and P+NOTE 
screen formats are supplied on the tape. 

Custom formats are a snap with the 
instructions supplied and probably will 
be used more than the “canned” ver- 
sions. As in the PoCo, editor searches 
can be performed for strings such as 
names or codes. Up to 16 information 
fields are supported, but you are limited 
to the 40 x 8 screen for each record. One 
feature that seemed to be missing was 
the ability to selectively print fields, 
such as mailing labels, from a record 
containing more information. 
SORT+ 

After entering all of your data using 
the PUT+ program you can load an- 
other program labeled SORT- to do 
exactly what it infers. Listings of up to 
255 records can be sorted in I5 to 20 
seconds. After entering the SORT+ 
program you are prompted for the for- 
mat of the file you wish to sort. You 
then move the cursor to the field you 
want to sort. After selecting the field, 
you are asked for the name of the data 
file. After your reply, as quick as you 
can say "sorted" you are asked for the 
name of the output file. 1 was impressed 
with this utility. Not only was it easy to 
use and well prompted, but it was fast. 
Summary 

I found only one flaw with the pro- 
grams used in that selected printing of 
files does not seem to be supported in 
the PUT+ program. 1 would not con- 
sider it major and the other features far 
outweigh any inconvenience. I think the 
entire package has a professional appear- 
ance with the user in mind. 


— Dan Downard 


VISA and MC Accepted * CA Residents Add 6.5% Sales Tax 


IOTA SYSTEMS * 1690 Day Valley Road * Aptos, CA 95003 • (408) 684-0482 
Prices Subject To Change Without Notice * TRS-80 is a trademark of Tandy Corporation 
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The Rackseller 








ALABAMA 
Madison Madison Books 
ALASKA 
Fairbanks Electronic World 
Fairbanks News Agency 
ARIZONA 
Phoenix Road Runner 
Computer Pro 
Scottsdale Softwareland Corp. 
CALIFORNIA 
Atwater Electro Brain 
Half Moon Bay  Strawflower Electronics 
North 
Hollywood Levity Distributors 
CONNECTICUT 
Hartford The Aetna Life Club Store 
DELAWARE 
Wilmington Normar Inc.—The Smoke Shop 
DISTRICT OF COLUMBIA 
The Program Store 
FLORIDA 
Ft. Lauderdale Software Connection 
Miami Newsrack 
Winter Park Independent Computer Systems 
GEORGIA 
Atlanta Guild News Agency 
Columbus Muscogee News Co. 
Trenton The Phone Line 
ILLINOIS 
Chicago Prairie News Agency 
INDIANA 
Elkhart Elkhart City News & Book Store 
Indianapolis A-Computer Store 
Madison Arco Office Supplies 
Scottsburg Radio Shack of Scottsburg 
KANSAS 
Topeka Town Criers of Topeka 
Wichita Amateur Radio Equipment Co. 


Lloyd's Radio 


KENTUCKY 

Benton Anderson Electronics 

Pikeville Gus-Stan Enterprises 
LOUISIANA 

Slidell Radio Shack 
MAINE 

South Portland Portland News Co, 
MARYLAND 

Baltimore The Program Store 

Kensington The Program Store 
MASSACHUSETTS 

Cambridge Tne Program Store 

Littleton Computer Plus 

Marlboro Radio Shack 

Wobum Microcon Software Centers 
MICHIGAN 

Novi MI Software Dist., Inc. 
NEBRASKA 

Lincoln Hobby Town 
NEVADA 

Las Vegas Hurley Electronics 
NEW HAMPSHIRE 

Manchester Brookwrights 

Petersborough Radio Shack 

West Lebanon Мегһагп News Corp. 
NEW JERSEY 

Hackensack Total Circulation Service 

Midland Park Software City 
NEW MEXICO 

Albuquerque Page One Newsstand 
NEW YORK 

Johnson City Unicorn Electronics 
NORTH DAKOTA 

Fargo Computer Associates 
OHIO 

Cincinnati Color Software Center 

Columbus The Program Store 

Lakewood Lakewood International News 

Toledo Leo's 


Reitz Electronics, Inc. 


OREGON 
Eugene Libra Books, Inc. 
Medford John's News Stand 
Portland BO-Plus 
Roseburg Roiny Day Bookshop 
PENNSYLVANIA 
Greensburg The Program Store 
Pleasant Hills Pittsburgh Computer Store 
SOUTH CAROLINA 
Greenville Palmetto News Co, 
North 
Charleston The Green Dragon 
TENNESSEE 
Memphis Computer Center 
Smyrna Delker Electronics, Inc. 
TEXAS 
Austin Austin News Agency 
Capitol Micro Computers 
Software & Things 
Dallas Micro Concepts, Inc. 
Ft. Worth RFI Electronics 
Irving Software Access 
VIRGINIA 
Falls Church The Program Store 
WASHINGTON 
Blaine Compulit Dist. 
Richland C & J Electronics Computer Center 
Seattle Adams News 
WISCONSIN 
Janesville Book World 
Portage Sam's Electronics 
CANADA: 
ALBERTA 
Calgary Rainbow Software Services 
Edmonton Kelly's Software Distributors 
NOVA SCOTIA 
Halifax Atlantic News 
ONTARIO 
Hamilton Galls Book World 








(continued from page 5) 

And, yes, speaking of those who will 
be supporting PoCo, let me ask you to 
help us by mentioning our magazine 
when you do make inquiries or pur- 
chase products for your Portable Com- 
puter. Advertising, obviously, has a sig- 
nificant impact on PCM s ability to 
grow. That is simply because we can add 
more pages, buy more articles and do 
more interesting and unique things when 
we have more advertising. 

We are basically committed to run- 
ning 50 percent advertising and 50 per- 
cent editorial in each issue. Your help in 
encouraging advertisers will mean, simply, 
that we can have a bigger and better 
magazine. So, please do mention PCM. 
And thank you. 

I would like to close by calling your 
attention to the PCM Seal of Certifica- 
tion which appeared for the first time in 
the premier issue last month. 

The Sealis an extension of a program 
which has been highly successful in the 
Color Computer field. Simply put, dis- 
play of the Seal certifies to you that we 
have seen and loaded a product which 
carries the Seal. 


Since a large number of computer 
products, both hardware and software, 
are sold by mail order, the PCM Seal of 
Certification is your assurance that the 
product does, indeed, exist. Vendors are 
required to submit such products to us 
before they may display the Seal. 

No, the Sea/ is not a guarantee that 
you will be satisfied with the product. 
But it is a certification that the product 
does exist and is available. We make 
great effort to police the Sea/ and will 
appreciate your notifying us of any 
instance of violation of its use. We will 
publicize violations here, in PCM. 

Once the Seal has been awarded, a 
vendor is allowed to use it on his own 
sales literature, on his packaging and in 
his advertisements. In the Color Compu- 
ter field, we have been very pleased that 
practically every publication which accepts 
advertising allows its advertisers to use 
the Rainbow Certification Seal because 
of its public service benefits. We assume 
this cooperation in the interests of con- 
sumer protection will be part of the 
PoCo world as well. 

— Lonnie Falk 


New Product 


Handy Carrier 
for the M100 


THE DONALD STEPHENS Com- 
pany of Las Vegas sends notice that they 
now have a new convenient carrying 
handle for the Model 100. 

The Stephens MSTRAP provides 
Model 100 users with a hand or shoul- 
der carry for their Model 100. 

MSTRAP is available in black to 
match the color scheme of the Model 
100, and installation, which will not 
void any of Tandy's warranties, can be 
performed by the purchaser in less than 
five minutes. 

The new carrying strap comes with a 
lifetime guarantee and is available for 
$12 (postage and handling included) 
from: The Donald Stephens Company, 
1962 Pommel Avenue, Las Vegas, NV 
89119. 
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on the TRS-80 Model 100 with 8K RAM 
stock #26-3801 


$699 


For quick delivery call: 


SPECTRUM PROJECTS 


93-15 86th DRIVE 
WOODHAVEN, NY 11421 


(212) 441-2807 


CERTIFICATION 
SEAL 


Add $4 shipping and handling. N.Y. residents add sales tax. 


Call our Bulletin Board for free Model 100 programs. BBS #1 — (212) 441-3755 
BBS #2 — (212) 441-3766 


BBS #3 — (212) 441-5719 


Says who? Says ANSI. 

Specifically, subcommittee X3B8 of the American 
National Standards Institute (ANSI) says so. The fact 
is all Elephant™ floppies meet or exceed the specs 
required to meet or exceed all their standards. 

But just who is “subcommittee X3B8" to issue such 
pronouncements? 

They're a group of people representing a large, 
well-balanced cross section of disciplines—from 
academia, government agencies, and the computer 
industry. People from places like IBM, Hewlett-Packard, 
3M, Lawrence Livermore Labs, The U.S. Department 
of Defense, Honeywell and The Association of Com- 
puter Programmers and Analysts. In short, it's a bunch 
of high-caliber nitpickers whose mission, it seems, in 
order to make better disks for consumers, is also to 
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make life miserable for everyone in the disk-making 
business. 

How? By gathering together periodically (often, 
one suspects, under the full moon) to concoct more 
and more rules to increase the quality of flexible 
disks. Their most recent rule book runs over 20 single- 
spaced pages—listing, and insisting upon— hundreds 
upon hundreds of standards a disk must meet in 
order to be blessed by ANSI. (And thereby be taken 
seriously by people who take disks seriously.) 

In fact, if you'd like a copy of this formidable docu- 
ment, for free, just let us know and we'll send you 
one. Because once you know what it takes to make 
an Elephant for ANSI . . . 

We think you'll want us to make some Elephants 
for you. 


Marketed exclusively by Leading Edge Products, Information Systems and Supplies 
Division, 55 Providence Highway, Norwood, MA 02062. Dealers: call toll-free 
1-800-343-8413; or in Massachusetts, call collect (617) 769-8150. 


